unit uFrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
  dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver, dxSkinSpringTime,
  dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, dxSkinsdxStatusBarPainter, dxSkinsdxBarPainter, dxBar,
  cxClasses, cxEdit, dxSkinsForm, dxLayoutLookAndFeels, ActnList,
  PlatformDefaultStyleActnCtrls, ActnMan, dxStatusBar, cxContainer, ACBrNFe;

type
  TfrmMain = class(TForm)
    dxStatusBar1: TdxStatusBar;
    ActionManager: TActionManager;
    acCadEmitentes: TAction;
    acCadClientes: TAction;
    acSisFechar: TAction;
    acCadTransportadoras: TAction;
    dxBarManager: TdxBarManager;
    dxBarManagerBar1: TdxBar;
    bsiSistema: TdxBarSubItem;
    bbtFechar: TdxBarButton;
    bsiCadastros: TdxBarSubItem;
    bbtCadEmpresas: TdxBarButton;
    bbtCadClientes: TdxBarButton;
    bbtCadFornecedores: TdxBarButton;
    bbtCadBancos: TdxBarButton;
    bsiFinceiro: TdxBarSubItem;
    bbtFinContasPagar: TdxBarButton;
    bbtFinContasReceber: TdxBarButton;
    dxBarSeparator1: TdxBarSeparator;
    bbtFinCaixa: TdxBarButton;
    btnCadPessoa: TdxBarButton;
    dxBarButton1: TdxBarButton;
    acCadProdutos: TAction;
    bbtCadProdutos: TdxBarButton;
    acSisCertificados: TAction;
    acSisParametros: TAction;
    bbtSisParametors: TdxBarButton;
    dxBarSeparator2: TdxBarSeparator;
    bbtCertificados: TdxBarButton;
    dxBarSeparator3: TdxBarSeparator;
    sbiNotasFiscais: TdxBarSubItem;
    dxBarSubItem2: TdxBarSubItem;
    acNFEmitirNova: TAction;
    acNFGerenciarNotas: TAction;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    acRelNfPeriodo: TAction;
    bbtRelNfPeriodo: TdxBarButton;
    procedure acSisFecharExecute(Sender: TObject);
    procedure acCadClientesExecute(Sender: TObject);
    procedure acCadEmitentesExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uFrmClienteCad, uDmMain, uFrmEmitentePes;

{$R *.dfm}

procedure TfrmMain.acCadClientesExecute(Sender: TObject);
begin
  frmClienteCad:=TfrmClienteCad.Create(self);
  frmClienteCad.Show();
end;

procedure TfrmMain.acCadEmitentesExecute(Sender: TObject);
begin
  frmEmitentePes := TfrmEmitentePes.Create(Self);
  frmEmitentePes.Show;
end;

procedure TfrmMain.acSisFecharExecute(Sender: TObject);
begin
  Application.Terminate;
end;

end.
